Top 10k strings from Entrepreneur - Applications (1985)(Collins Educational).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
10 N$=K$(OVP):
10 A(L$);"-";L$;"%":
8 CALCULATING
8 A(L$);"+";L$;"%":
7 D(FIN+TH):
7 "21",ZE;"Y/N":
6 PWAG=PWAG+QW
6 L$);L$;"%"
6 D(O)=D(O)+QW:
6 C(FIN+TH):
5 D(O)=D(O)+
5 ,ZE;"0-999999":
4 T,ZE;" ";K$(OVP+T-0
4 NAME OR ROLE
4 L$=L$+C$(H+TH+CO):
4 L$=C$(H+TH)
4 L$);L$;"%":
4 FIXED ASSETS
4 D(O+FUT)=D(O+FUT)+
4 CPO,ZE;" ";
4 C$=C$+("0"
4 C$(H+TH+CO)
4 ARE YOU SURE ?
4 ;K$(OVP+T-0
4 8888888888888888888
4 8888888888888888
4 ,ZE;" ":
4 )="******":
4 )=" 0":
4 );" DAYS":
4 (START/256
4 (C$(H+TH+CO)
4 ((NN/ATP-0
4 "DEPRECIATION";
3 T,ZE;" ";K$(T-N,
3 L$);"`";L$:
3 CREDIT TERMS
3 CASH OR CREDIT
3 A(L$);L$;"%":
3 ,ZE;"1-9999"
3 ,ZE;"0-99%":
3 ,ZE;"0-99% ":
3 (L$(T)="."
2 ontinue
2 ontinue
2 enu
2 ditor
2 apply
2 ZE;"OPENING CASH";:
2 ZE,ZE;" ":
2 ZE,ZE;" ":
2 ZE,ZE;" ";
2 ZE,ZE;" ":
2 YOU WILL NOT BREAK EVEN WITHIN THE ANALYSIS PERIOD
2 Y,ZE;" ";K$(Y-N,
2 Y,ZE;" ";K$(X-(0
2 X+N,ZE;" ";K$(X,
2 X$(O)*(N+SVAT/
2 WILL YOU REGISTER FOR V.A.T
2 WHICH FILE
2 WEEKLY PAY
2 WAGE RELATED COSTS
2 VATS=-VAT:
2 VAT RATE ON SALES
2 V.A.T. RATE
2 UNITS SOLD
2 TYPE OF BUSINESS
2 TWA=WGS+WGC:
2 TURN=TURN+
2 TP=TP+PWAG+ALLO:
2 TP=NET+DEPN-CAP:
2 TH,ZE;"DEPRECIATION";
2 TAXDUE=TAX:
2 TAX=TAX*COU
2 TAX ALLOWANCE
2 TAT=TAT+DEPN+WGC:
2 TAT=TAT+AM
2 T,ZE;" ";K$(OVE-0
2 START=65451
2 STA+FIN-N:
2 SINGLE PAYMENT
2 SHAREHOLDERS FUNDS
2 SENSITIVITY ANALYSIS
2 SALES VOLUMES
2 SALES COSTS
2 S$(U)=K$(U):
2 REPAYMENTS
2 RATIO ANALYSIS
2 RAT=ATP/(FA+CA-LIA):
2 R$(U)=K$(U):
2 Q$(U)=K$(U):
2 PROFIT & LOSS
2 PRINCIPAL REPAID
2 PRIN=PRIN-PRY:
2 PERCENTAGE CREDIT SALES
2 P$(U)=K$(U):
2 OVP=OVP+N:
2 OVP=OVP+(J$="6")-(J$="7"):
2 OVERDRAFT INTEREST RATE
2 OVE=OVE-N:
2 OVE=OVE+N:
2 OVA=OVA+CLS:
2 OTHER TAXABLE INCOME
2 OPOS,ZE;" ";
2 OP1=OP1+LTL:
2 NP=TP-TWA*0
2 NP=TP-EX*0
2 NP=TP-DEPN*0
2 NP=TP+EX*0
2 NP=TP+DEPN*0
2 NP=NP-TAX:
2 NO OF PAYMENTS
2 NN=NET-TWA*0
2 NN=NET-EX*0
2 NN=NET-DEPN*0
2 NN=NET+TWA*0
2 NN=NET+EX*0
2 NN=NET+DEPN*0
2 NEXT MONTH PAID
2 NEXT MONTH INVOICED
2 NET=SLS-COS-WGS-WGC-EX-DEPN-INR:
2 N,ZE;Y$;"
2 N,ZE;"Start Tape & Press A Key":
2 N,ZE;"CANNOT DELETE LAST ENTRY":
2 N$=K$(X-N)
2 MONTHLY PAY
2 MONTH TO START TRADING
2 MONTH PAID
2 MONTH INVOICED
2 LOW ON MEMORY AVOID USING
2 LONG TERM LOAN
2 LIABILITIES
2 LEVEL OF FINANCING
2 LARGEST OVERDRAFT
2 L=TH);("INVOICED"
2 L$="CREDIT":
2 L$="CASH":
2 L$);L$;"%";
2 L$);L$;" Days":
2 L$(T)>"9")
2 K$(X+N)=K$(X):
2 K$(X)=K$(X-N):
2 K$(X)=K$(X+N):
2 K$(T)=R$(T):
2 K$(T)=Q$(T):
2 K$(T)=P$(T):
2 K$(OVP+N)=L$:
2 IS THE ABOVE CORRECT
2 IRREGULAR PAYMENTS
2 INVOICE AMOUNT
2 INTEREST RATE
2 INITIAL DATA
2 H$=H$+("0"
2 H$="2");("LIMITED COMPANY"
2 H$="1");("PARTNERSHIP"
2 FREQUENCY OF INVOICING
2 FIRST MONTH V.A.T. DUE
2 FIRST MONTH INVOICED
2 FA=CPL-DEPN:
2 F$=F$+"0":
2 ERR,START-256
2 EQUITY FUNDS
2 END OF YEAR
2 DIRECT COSTS
2 DEPRECIATION RATE
2 DEPRECIATION
2 DEPN=DEPN+(AM-OAM)*
2 DEPN=DEPN+
2 DBR=C(O)+C(O+0
2 CURRENT ASSETS
2 CPO=OVE+N:
2 CPO=N+OVE:
2 CPO=CPO+(J$="6")-(J$="7"):
2 CLS=OPEN+C(O)-D(O)-E(O):
2 CLS<ZE)+TAXDUE+CRR:
2 CLOSING OVERDRAFT
2 CAPITAL ALLOWANCE
2 CAP=CAP+(AM-OAM)*(
2 CA=STO+DBR+(CLS
2 C(O)=C(O)+
2 C$=C$+L$+("/"
2 C$=C$+":"+("0"
2 BREAK EVEN
2 BALANCE SHEET
2 B,ZE;" ":
2 AVERAGE OVERDRAFT
2 ANALYSIS PERIOD
2 AMV=AMV+ADD*(0
2 AM=AM+ADD:
2 ALLO=ALLO+
2 A(L$);L$''"
2 A(L$);L$'"CLOSING CASH";:
2 A(L$);L$'"CASH OUT";:
2 A(L$);L$'"CASH IN";:
2 A(L$);"+";L$;"%"'
2 A$(Y)=A$(Y+N):
2 ;"VAT DUE";
2 ;"TAX ALLOWANCE";
2 ;"SENSITIVITY ANALYSIS"''
2 ;"REGISTERED":
2 ;"RATIO ANALYSIS"''
2 ;"PAY FROM";
2 ;"LOAD/SAVE DATA"''
2 ;"END PROGRAM":
2 ;"END OF YEAR"''
2 ;"EDITOR"''
2 ;"CONTINUE"''
2 ;"CHANGE SALES"''
2 ;"CHANGE FINANCE"''
2 ;"AMOUNT";
2 ;" ":
2 ;" ";
2 888888888888888888
2 888888888888888
2 ,ZE;"e.g; 5=MAY "
2 ,ZE;"[1-";FIN;"] "
2 ,ZE;"YEARLY REPAYMENTS"
2 ,ZE;"WAGE COSTS";
2 ,ZE;"VAT RATE";
2 ,ZE;"VAT RATE ON SALES";
2 ,ZE;"PROFIT BEFORE TAX";:
2 ,ZE;"PERCENTAGE CREDIT SALES";
2 ,ZE;"PARTNER":
2 ,ZE;"OWNER":
2 ,ZE;"OVERDRAFT INTEREST RATE";
2 ,ZE;"ONLY ONE PAYMENT PER MONTH":
2 ,ZE;"No of days [7-90] "
2 ,ZE;"Months from start [1-";FIN;"]"
2 ,ZE;"Max 20 characters";
2 ,ZE;"INTEREST RATE";
2 ,ZE;"HALF YEARLY REPAYMENTS"
2 ,ZE;"DEPRECIATION RATE";
2 ,ZE;"CREDIT TERMS";
2 ,ZE;"CONTRIBUTION";
2 ,ZE;"As a percentage of wage [0-99]"
2 ,ZE;"1-999999"
2 ,ZE;"0-50%"
2 ,ZE;" ":
2 )=" ":
2 )*(STEP/12
2 (WGS+WGC+0
2 (SLS-COS+0
2 (RAT*HU+.5
2 (NET-TAX+0
2 (NET-TAX):
2 (L$(T)<"0"
2 (FIN/STEP)*PRY>LTL
2 (C$(U)="/"
2 ((ATP/NN-0
2 '"TAXATION";
2 '"PRINCIPAL REPAID";
2 '"LONG TERM LOANS";
2 '"COST OF SALES";
2 "WAGE COSTS";
2 "TAX DUE";
2 "QUARTERLY"
2 "PROFIT & LOSS";
2 "OVERDRAFT";:
2 "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER":
2 "IRREGULARLY"
2 "INTEREST";
2 "HALF YEARLY"
2 "EXPENSES";
2 "DEBTORS";
2 "CREDITORS";
2 "BI-MONTHLY"
2 "8",ZE;"OTHER TAXABLE INCOME";
2 "5";"TYPE";:
2 "5",ZE;"EXPENSES";
2 "30600")+0
2 "23100")+0
2 "21",ZE;"Months from start [6-18]"
2 "21",ZE;"Months from Start [1-";FIN;"]"
2 "21",ZE;"0-99%":
2 "21",ZE;" ";
2 "18200")+0
2 "15400")+0
2 "12";("SOLE TRADER"
2 "12";"NOT REGISTERED":
2 "10",ZE;"TOTAL";
2 "'"STOCK";
2 "'"LONG TERM LOAN";
2 "'"EQUITY";
2 "'"CAPITAL";
2 "'"
2 " PER WEEK"
2 " PER MONTH"
2 " ");S$(Y,X);:
2 " ");K$(X,T);:
2 Yearly"''"
2 Weekly
2 Sole Trader
2 Quarterly";
2 QUARTERLY
2 Partnership"'';
2 Monthly";
2 Monthly"''
2 Limited Company":
2 Irregularly":
2 Irregular":
2 INTEREST ONLY"''
2 INTEREST AND PRINCIPAL":
2 INITIAL DATA":
2 Half Yearly";
2 HALF YEARLY"''"
2 FIXED ASSETS"''"
2 Exceptional period end transactions may distort these turnover figures.":
2 EXPENSES
2 EMPLOYEES"''"
2 DIRECT COSTS
2 Bi-Monthly"''"
2 OPTIONS
2 OPTIONS
2
2
1 rinter "
1 rinter
1 applys
1 applym
1 apply V
1 apply #
1 ZE,ZE;"TURNOVER ABOVE VAT LIMIT"'"YOU SHOULD REGISTER FOR VAT":
1 ZE,ZE;"TURNOVER ABOVE V.A.T. LIMIT"'"YOU SHOULD REGISTER FOR V.A.T."
1 ZE,ZE;"Out of stock in ";D$;("2"
1 YR=N)'"No ";S$(J,
1 X-STA+I,N;D$;("2"
1 X,ZE;" ";K$(OVE-21
1 X,ZE;" ";K$(OVE-0
1 X$(Z,X)=ZE
1 X$(Y,POS-N,(0
1 X$(Y,POS-N)=" ":
1 X$(Y)=X$(Y+N):
1 X$(X,O)*(N+
1 X$(X,O)*(1
1 X$(X+N,Y)=X$(X,Y):
1 X$(X)=X$(X-N):
1 X$(X)=X$(X+N):
1 X$(X)=C$(N)
1 X$(X)=" "
1 X$(X)*COST:
1 X$(T)*B(U)):
1 X$(POS-N,(10
1 X$(POS-N)=" ":
1 X$(OVP)=C$(N)
1 X$(O)*COST*(SVAT/
1 X$(K)*PRCV:
1 X$(K)*PRC:
1 X$(J,K)=" "
1 WHICH FILE ?
1 W$(Y)="00":
1 W$(H+TH+CO)
1 VAT RATE ON STOCK
1 UNIT PRICE
1 TUV=TURN*(N+SVAT/
1 TURNS=TURNS+
1 TH,ZE;"SALES";
1 TH,ZE;"PRICE PER UNIT";
1 T,ZE;" ";K$(T-0
1 T,ZE;" ";K$(OVP+T-I,
1 T,ZE;" ";K$(OVP+T-2
1 STOV=STOV+ADD*(1
1 STOP THE TAPE & PRESS A KEY
1 STO=STO+ADD:
1 SLS=TURNS:
1 SLS=TAT/CONT+N:
1 SLS=(PSL*COST):
1 Q,ZE;"WAGE";
1 Q,ZE;"CAPITAL ALLOWANCE";
1 Q,ZE;"AV DEBTOR TURNOVER";
1 Q,Q;"START";
1 Q,N;("PAID"
1 Q,N;"INVOICED";
1 Q+I*(L=N),ZE;"PAYMENT";:
1 Q$(QLEN,43
1 PRODUCT TURNOVER
1 PRICE PER UNIT
1 PRESS KEY FOR PROGRAM REQUIRED
1 PRCV=PRCV+B(W)*(1
1 PRC=PRC+B(W):
1 POS=POS+(L$="6"
1 POS<FIN+N)-(
1 P$(PLEN,43
1 OPO,ZE;" ";
1 O$(Z)="0":
1 NUMBER OF ITEMS
1 NP=TP-COS*0
1 NP=TP-(TURN-CONT)*0
1 NP=TP+COS*0
1 NP=TP+(TURN-CONT)*0
1 NN=NET-COS*0
1 NN=NET-CONT*0
1 NN=NET-(TURN-CONT)*0
1 NN=NET-(SLS-COS)*0
1 NN=NET+COS*0
1 NN=NET+CONT*0
1 NN=NET+(TURN-CONT)*0
1 NN=NET+(SLS-COS)*0
1 N,ZE;"PRINCIPAL REPAID TOO LARGE":
1 MON=T+STA-N:
1 MON=O+STA-N:
1 MON=O+STA-0
1 LOAD/SAVE DATA
1 L$=X$(Y,X-STA+N):
1 L$=X$(X-STA+N):
1 L$=L$+W$(H+TH+CO):
1 L$="1");("CREDIT"
1 L$=" "+L$:
1 L$);L$;" DAYS":
1 K$(Y)=K$(Y+N):
1 K$(Y)=K$(Y+0
1 K$(U)=S$(U):
1 K$(T)=S$(T):
1 K$(OVP+N)=O$:
1 K$(OVP+N)=B$:
1 K$(N)="NONE 00000000000000000000000":
1 K$(N)="NONE 0000000000000000000000":
1 INTR=INTR+PRIN*(LTLINT/100
1 INTR=INTR+PRIN*(LTLINT/0
1 INR=INR-((CLS*OVN)/1200
1 INR=INR-((CLS*OVN)/
1 H$(N)="2")
1 GGGGGGGGGGGGGGGGGGGGGGGGGGGG
1 F$(I)="0":
1 END OF YEAR INVENTORY
1 E(K)=E(K)+PRY+PRIN*(LTLINT/100
1 E(K)=E(K)+PRY+PRIN*(LTLINT/0
1 DBT=(DBR/TUV)*FIN*30
1 DBT=(DBR/TUV)*FIN*
1 DAYS STOCK HELD
1 D(O+N)=D(O+N)-VAT:
1 D(O+N)=D(O+N)-((CLS*OVN)/
1 Created with Ramsoft MakeTZX
1 CV=CV+STOV
1 CRT=(CRR/(CV+EXV)*FIN*
1 CRT=(CRR/(COSV+EXV))*FIN*30
1 CRR=D(O)+D(O+N)+D(O+I):
1 CRR=D(O)+D(O+0
1 CREDIT TERMS ON STOCK
1 CREDIT TERMS ON SALES
1 CPO=N+OVP:
1 COSV=COSV+EOY:
1 COSV=COSV+
1 COST PER UNIT
1 COST AS PERCENTAGE OF SALES
1 COS=TURNS-CONT:
1 CONT=COST-PRC:
1 CONT=CONT+ADD:
1 CHANGE SALES
1 C$(N,FIN):
1 C$(N)=X$(OP):
1 B(Y)=B(Y+N):
1 B(X)=B(X-N):
1 B(X)=B(X+N):
1 B(OVP+N)=C
1 B(B+N)=B(B):
1 APPLICATIONS PROGRAM
1 A(L$);L$;"%"
1 A(L$)-TH;L$;" DAYS"
1 =D(O+N)-((CLS*OVN)/1200
1 =(30$)=(30
1 ;X$(Y,POS-N):
1 ;L$;" DAYS"
1 ;"Your Data refers to data"'" saved using the"''"
1 ;"YEAR END";
1 ;"Start Your Tape And Press A Key":
1 ;"Start Tape And Press A Key":
1 ;"Start Tape And Press A Key"''" (note;program is further along"'" tape, it may be useful to ";#1
1 ;"COMPANY";
1 ;" note its starting position for"'" future use)"
1 ;" "
1 88899999:::::88888888888888888888888888888888888888888888888888888899999:::::88888888888888888888888888888888888GG
1 8888888888888888?8888
1 888888888888888888888888
1 888888888888888888888
1 88888888888888888
1 -Select
1 ,ZE;"[1-10]":
1 ,ZE;"Y/N":
1 ,ZE;"WAGES";
1 ,ZE;"WAGE";
1 ,ZE;"VAT RATE ON STOCK";
1 ,ZE;"UNIT PRICE";
1 ,ZE;"SALES";
1 ,ZE;"QUARTERLY REPAYMENTS"
1 ,ZE;"PROFIT/NET ASSETS ";
1 ,ZE;"PROFIT AFTER TAX";
1 ,ZE;"PRINCIPAL REPAID TOO LARGE":
1 ,ZE;"PERCENTAGE OF SALES";
1 ,ZE;"PAYMENT";
1 ,ZE;"Months from start":
1 ,ZE;"Months from Start":
1 ,ZE;"Max 6 digits: e.g; `123.45":
1 ,ZE;"Max 20 Characters":
1 ,ZE;"L/S":
1 ,ZE;"Insert Blank Tape & Press A Key";
1 ,ZE;"Insert Blank Tape & Press A Key":
1 ,ZE;"EQUITY";
1 ,ZE;"CREDIT TERMS ON SALES";
1 ,ZE;"COST/UNIT";
1 ,ZE;"CAPITAL ALLOWANCE";
1 ,ZE;"AV DEBTOR TURNOVER";
1 ,ZE;"AV CREDITOR TURNOVER";
1 ,ZE;"7-90 Days":
1 ,ZE;"7-90 Days ":
1 ,ZE;"7-90 DAYS":
1 ,ZE;"1-999999":
1 ,ZE;"1-9999":
1 ,ZE;"0-999 ":
1 ,ZE;"0-99% ":
1 ,ZE;"0-99% ":
1 ,ZE;"0-50%":
1 ,ZE;" ";
1 ,N;D$;("2"
1 ,N;"INVOICED";
1 +I*(L=N),ZE;"TERMS";
1 *(L=N),ZE;"PAYMENT";:
1 ),ZE;"TERMS";
1 (W$(H+TH+CO)
1 (TP-CONT*0
1 (TP-(SLS-COS)*0
1 (TP+(SLS-COS)*0
1 (TP+(CONT)*0
1 (H$(N)="1"
1 (BARX-TH)*
1 (AM-OAM+.5
1 ((TURN/COST)*B(J)+
1 ((OVA/FIN)-0
1 ((OVA/FIN)-.5
1 '';"BREAK EVEN SALES";
1 ''"TOTAL CONTRIBUTION";
1 ''"PROJECTED SALES";
1 ''"PRICE PER UNIT";
1 "8",ZE;"EQUITY";
1 "8",N;"YEAR END";
1 "7",ZE;"WAGES";
1 "7",ZE;"AV CREDITOR TURNOVER";
1 "4";"V.A.T";
1 "4",N;("PAID"
1 "24";K$(Y-N,21
1 "24";K$(X,21
1 "24";K$(X,0
1 "24";K$(T-N,21
1 "24";K$(OVP+T-I,0
1 "24";K$(OVP+T-2
1 "24";K$(OVE-21
1 "22";X$(POS-N):
1 "21",ZE;"Y/N"
1 "21",ZE;"Max 9 Characters: eg; `123456.78":
1 "21",ZE;"Max 8 Characters: e.g; `2345.678":
1 "21",ZE;"L/S":
1 "21",ZE;"0-999999":
1 "21",ZE;"0-99% ":
1 "21",ZE;"0-99% ":
1 "21",ZE;"0-50% ":
1 "21",ZE;"(1-999999)":
1 "2";"COMPANY";
1 "18",ZE;"PROFIT AFTER TAX";
1 "14",ZE;"QUARTERLY REPAYMENTS"
1 "14",Q;"V.A.T";
1 "12";D$;I$;
1 "12",ZE;"If you change type, adjust data on owners in the EMPLOYEES file."
1 "12",ZE;"If you change type, adjust data on Owners in the EMPLOYEE file."
1 "100")*COST*CSAL/
1 "100")*COST*(N-CSAL/
1 "10";T$;#N;
1 "10",ZE;"PROFIT/NET ASSETS ";
1 "10",ZE;"DAYS STOCK HELD";
1 "''" option in the main program"
1 Your Data"
1 Single Product";
1 Multi-Product";
1 Changing will require you to re-enter input data"
1 Changing will require you to re-enter data"
1 CHANGE SALES
1 OPTIONS
1 OPTIONS
1 Options
1 OPTIONS
1
1
1